home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_A.d64 / blitter demo1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  46 lines
  1. 5 rem  bewegte  dreiecke
  2. 6 rem
  3. 7 rem  (c) oliver strunk
  4. 8 rem
  5. 9 poke53280,1:poke53281,1:poke646,0
  6. 10 sys 19712  :rem grafikerweiterung einschalten
  7. 15 speicher  :rem speicherstart auf]standart $8000
  8. 17 clear     :rem speicher loeschen
  9. 18 start     :rem hires bildschirm einschalten
  10. 25 n=9       :rem 3 dreiecke = 9 linien
  11. 27 rem
  12. 28 rem koordinaten und bewegungsrichtung ermitteln
  13. 29 rem
  14. 30 dim o1(n),o2(n),o3(n),p1(n),p2(n),p3(n)
  15. 40 dim a1(n),a2(n),a3(n),b1(n),b2(n),b3(n)
  16. 50 s=4:t=5:for i=1 to n
  17. 60 o1(i)=((7 and i)+3)*(-1)^i:p1(i)=((2 and i)+2)*(-1)^i
  18. 70 next:e=int (3000/n):ee=e-40
  19. 75 rem
  20. 76 rem bildschirmraender festlegen
  21. 77 rem
  22. 80 rr=150:lr=-rr:ob=90:ur=-ob
  23. 85 rem
  24. 86 rem hauptschleife
  25. 87 rem
  26. 90 for w=0 to e:for i=1 to n
  27. 100 if a1(i)>rr then a1(i)=rr:p1(i)=-rnd (1)*t-2
  28. 110 if a1(i)<lr then a1(i)=lr:p1(i)=rnd (1)*t+2
  29. 120 if b1(i)>ob then b1(i)=ob:o1(i)=-rnd (1)*s-2
  30. 130 if b1(i)<ur then b1(i)=ur:o1(i)=rnd (1)*s+2
  31. 140 a1(i)=a1(i)+p1(i):b1(i)=b1(i)+o1(i)
  32. 150 if w=ee then p1(i)=-a1(i)/40:o1(i)=-b1(i)/40
  33. 160 next:bild  :rem hiresscreen loeschen
  34. 165 rem
  35. 166 rem dreiecke zeichnen
  36. 167 rem
  37. 170 for i=1 to n step 3:i2=i+1:i3=i+2
  38. 180 line a1(i),b1(i),a1(i2),b1(i2)
  39. 190 line a1(i3),b1(i3),a1(i2),b1(i2)
  40. 200 line a1(i3),b1(i3),a1(i),b1(i)
  41. 210 next:next
  42. 215 rem
  43. 216 rem und schliesslich: film
  44. 217 rem
  45. 220 film 1+128
  46.